home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1994 November: Tool Chest / Dev.CD Nov 94.toast / Tool Chest / Development Tools & Languages / Macintosh Common Lisp Related / interfaces / PInterface Translator / patches / appletalk.patch < prev    next >
Encoding:
Text File  |  1993-09-16  |  1.6 KB  |  67 lines  |  [TEXT/CCL2]
  1. (def-mactype :abcalltype (find-mactype :signed-integer))
  2.  
  3. (defrecord (ABusRecord :handle) 
  4.   (abOpcode :signed-integer)
  5.   (abResult :signed-integer)
  6.   (abUserReference :signed-long)
  7.   (:variant 
  8.    
  9.    ((lapAddress :lapadrblock)
  10.     (lapReqCount :signed-integer)
  11.     (lapActCount :signed-integer)
  12.     (lapDataPtr :pointer))
  13.    
  14.    (
  15.     (filler2 :signed-byte)
  16.     (ddpType :unsigned-byte)
  17.     
  18.     (filler3 :signed-byte)
  19.     (ddpSocket :unsigned-byte)
  20.     (ddpAddress :addrblock)
  21.     (ddpReqCount :signed-integer)
  22.     (ddpActCount :signed-integer)
  23.     (ddpDataPtr :pointer)
  24.     (filler4 :signed-byte)
  25.     (ddpNodeID :unsigned-byte))
  26.    
  27.    ((nbpEntityPtr (:pointer entityname))
  28.     (nbpBufPtr :pointer)
  29.     (nbpBufSize :signed-integer)
  30.     (nbpDataField :signed-integer)
  31.     (nbpAddress :addrblock)
  32.     (nbpRetransmitInfo :retranstype))
  33.    
  34.    (
  35.     (filler5 :signed-byte)
  36.     (atpSocket :unsigned-byte)
  37.     (atpAddress :addrblock)
  38.     (atpReqCount :signed-integer)
  39.     (atpDataPtr :pointer)
  40.     (atpRspBDSPtr (:pointer :bdstype))
  41.     
  42.     (filler6 :signed-byte)
  43.     (atpBitmap :unsigned-byte)
  44.     (atpTransID :signed-integer)
  45.     (atpActCount :signed-integer)
  46.     (atpUserData :signed-long)
  47.     (atpXO :boolean)
  48.     (atpEOM :boolean)
  49.     
  50.     (filler7 :signed-byte)
  51.     (atpTimeOut :unsigned-byte)
  52.     
  53.     (filler8 :signed-byte)
  54.     (atpRetries :unsigned-byte)
  55.     
  56.     (filler9 :signed-byte)
  57.     (atpNumBufs :unsigned-byte)
  58.     
  59.     (filler10 :signed-byte)
  60.     (atpNumRsp :unsigned-byte)
  61.     
  62.     (filler11 :signed-byte)
  63.     (atpBDSSize :unsigned-byte)
  64.     (atpRspUData :signed-long)
  65.     (atpRspBuf :pointer)
  66.     (atpRspSize :signed-integer))
  67.    ))